home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
graphics
/
sviewiv
/
arexx-scripts
/
dooperation.rx
< prev
next >
Wrap
Text File
|
1999-11-30
|
1KB
|
69 lines
/*
$VER: DoOperation.rx V9.00 (15.8.99)
© 1997-99 by Andreas R. Kleinert
This script demonstrates loading, proecessing and saving
a graphics by using SViewIV's ARexxPort.
*/
address command
SViewIV "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
say ""
say "ARexx: SViewIV has been started : Waiting a moment..."
wait 5
OPTIONS RESULTS
SIGNAL ON ERROR
SVIIPORT = 'SViewII.rx'
SVNGPORT = 'SViewNG.rx'
SVPORT = 'SuperView.rx'
IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN SVPORT = SVIIPORT
IF ~SHOW('P',SVPORT) THEN DO
say "Could not locate ARexx port of SViewII !"
CALL ErrorOut 0
END
ADDRESS VALUE SVPORT
say "ARexx: Loading a PCX Graphics via the LOAD command"
'LOAD=TEST.PCX'
say "ARexx: Processing Graphics"
'SVOPERATOR=Scale50'
'ACTION'
say "ARexx: Saving Graphics as PCX"
'SAVE_TYPE=PCX V2.5-3.0'
'SAVE=TEST-OP.PCX'
address command wait 3
say "ARexx: Load this PCX Gfx now for control"
'SHOW=TEST-OP.PCX'
say "ARexx: O.K. : Let's quit !"
address command Wait 2
'QUIT'
CALL ErrorOut 0
/* Errorout procedure ----------------------- */
ErrorOut:
PARSE ARG ExitCode
EXIT ExitCode
END